home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Source Sea20778672001.psc / clsChildFile.cls next >
Encoding:
Visual Basic class definition  |  2001-03-29  |  624 b   |  34 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsChildFile"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15.  
  16. 'The path of the file
  17. Dim m_strPath As String
  18. '
  19.  
  20. Public Property Get Path() As String
  21.  
  22.   Path = m_strPath
  23.  
  24. End Property
  25.  
  26. Public Property Let Path(v_strPath As String)
  27.  
  28.   m_strPath = v_strPath
  29.  
  30. End Property
  31.  
  32.  
  33.  
  34.